Imports System
Imports System.Threading
Imports Microsoft.VisualBasic
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim temp As New Random
        Dim gt As Integer
        gt = temp.Next(0, 23)
        Thread.Sleep(23)
        Dim temp2 As New Random
        Dim gt2 As Integer
        gt2 = temp2.Next(0, 23)

        MessageBox.Show(gt.ToString() + gt2.ToString())
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class
